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maquina, 
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Iniciaremos neste numero do Jornal do CLUEE Z-sa uma 
coluna em que tentaremos dar uma resposta a inumeros 
pedidos e interrogacoes sobre a equivalencia de 
Instrucoes - Comandos - Falavras Chave que existem na 
linguagem BASIC, e como funcionam em diversas maquinas. 
Se os objectivos estao definidos e sao perfeitamente 
visíveis, O mesmo nao diremos no que respeita a 
atingi-los com facilidade e se todas as duvidas serao 
respondidas com nitidez! 
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para Proaramar um computador, Standards Institute publicou 
Foi. deservolvida um padrao desta linguagem para 
originalmente ro Colegio terrta disciecelinmar a 
Liar tmoutr (Eco > por Jota multiplicidade de dialectos 
Fe Tr = Thomas Kurtz, Em aparecidos: quanto a nos, fm 
rneados da decada de 6g, Lis er eee tm POIS emIeter 
SELS criadores pretendiam dar Trumeras vEepreges de 
uma ajuda aos estudantes que fabricantes me arande 
senti arm dificuldade ET prestigio que Dvs sem 
assimilar rapidamente COBOL e caracteristicas pastante 
FORTRAM = [Es Er arm (vo as avreciadas e me não estam 
arandes Linauagens de incluidas no padrao AHET LE 
PrOGramacao da epoca +, eta a decetnaIcas que ME 
Rapidamente, os fabricantes CUPICEOES querem desziaonar 
de Pequenas maquinas - e nao equi puedes e referem am FASITO 
so —- lancaram varias vercoes “antemiico” d 
desta linauager, com OS ses 
microcomputadores , dando assi Ploumar wvwartaderne de ERAS TO 
Jnicio a pequena Babel que e q 1 - EPASIC e "amigavel" mm! 
BASIC. seja. orientando para as 
H partir dos anos TA, o Pessoas. 
BRSTC foi definitivamente E facil de aprender e, de 
adaptado como linquaserm dos certo modo, divertida a <ua 
“micros” e neste momento nao aspremdizaoen Duataquer 
exizte nenhum computador que individuo metodicm pode, pm 
não possua um “interpretador” = 1 PRI, aprerder a 
de BASIC. programacao em BASTC. 
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lã FEM "RES-PROGRAMA TESTE" 

cd LET K=E8 

Sa PRINT “NES PASSA NO TESTE 
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4a PRINT ABS Cc-S5.2o, 
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EA PRINT ABS €-mo 


= mm CA comentador HE 
FPOSSIT ESTA FUNCACI 


Ela Ementas em Facilmente 
-imuitada rela zegtinte mota: 

1a FEM "RES-STMUILADAM 

Ra PR THT “ENTRADA DE JM 
HUMMER HEGET To” 

so THPLT o» 

SA CA CUP aa 

So PRINT. 
PE sete io Mi 

Ed Gt TO SA 


“ALOE ARSMpTO 
ME 1 Y 


Sana FEM FARS " 
Cepam T PE 
“aa LET was 


EEHTRADE 


ae TP goza THEN GO TO Jada 
apt LET y=— 
atidt RE TUR 


CO cmo trem Pure per 


eirpljzta 


ECETTESEURESaTanaaDsssesnsansasassnaaansacsassassesseeaeass==22e=eeo 

IHTREOQCUC AO [a LTHGURAGERM MAG THA 
CceortIUIATAaM “ 

aqRTRREEnSRaSaRanIsacandanasascasacacasasscrasasaasaasacaasasaenasss 


emas Quis CUNOS ucos caes CDuso Cotst CSEs CUMIS Guaso CONS CONUS caGsÓ GUUNS CUDM CuOto Ggeus Caetm ahoas coeto csmo canto anuso Gamma GuNDA 


vamos agora entrar mo Ja 
anunciado proarama 3, capaz de 
fazer uma. transferencia de Bá LUIF e uma ingtrucao que 
butes em tloco, utilizando uma comeca por mover um tbute de 
instrucao LDIK. cHLO para CDE>, Os reaistos HL 
e DE sao decois ircrementados 
A “"LDIR" faz parte de um csonado 1 a cada um deles), O 
Grupo de instrucoes muito contador de tbutes, o registo 
importantes To 8a, pois CEC» decrementado (<sgubtraccao 
permiterm num roqaramaão mover de 15; e o PROCESSO 
plocos de memoria ou ainda desenvolve-se ate EL atinair o 
pesquisar esses mesmos blocos, valor ZERO Esta instrucaa 
Numa ordem para o ZB0 usar pode mover qualquer numero de 
a instrucao de movimento de butes desde €1l a ÉSS36). 
Bloco. o endereco base do Has restantes instrutores 
Bloco e colocado no registo cerao detalhadas a medida que 
cHL>, Oo endereço do destino no forem surgindo no textos. 
registo (DE), e a dimensao do 
Bloco no reaisto CBCD., A nossa primeira 
Numa ordem para o Z8B usar experiencia no ambito do 
a instrucao de pesquisar um. programa 3 vai ser de formar 
placa da memoria, para um ecran atraves duma rotina 
encontrar um endereço com um de desenhar, memorizar este 
determinado conteudo, Eae pero ecramo num determinado 
endereço baze do bloco e espaco da memoria, e chama-lo 
colocado mao registo €<HL>, as Er seguida de novo para oO 
dimensoes do bloco no reaisto ecran, utilizando uma 
CcBC) e a valor procurado no instrucao LDIK. 
registo A. Btraves da RT THA ARTE 
cdesenhar o ecrando o leitor 
Este arupo de instrucoes pode, utilizando as teclas 1/3 
divide-se ainda em inrstrucars Va imprimir nOo ecran uma um, 
automaticas e não automaticas, qualquer caracter dao teclado 
As automaticas sao aquelas no sitio exacto aonde o quer 
que Uma unica LONSÊtrUucaS move colocar. H eutremtama GI 
o pesquisa um blaca, da-Tt= as TorEtruTors 
As nao automaticas somente NECcesTarias para fazer, 
mover OU pesquisam um lute, tuna epi consideracao Quis 
qu amido da EMETUTA da ne APTE chamar o  HORTE ao topa . 
instrução, Para mero fue LDO Cu) cuperior do ecran (l dezenho a 
pesquisado um certo mumero de prermorizar var ficar polls o am 
butes estas INSÊtruCORSs criterio e ao gosta de cada 
precisam de um CICLO, utilizador. 
Hs instrucoes automatiicas 
sao: ars amora, analizar as 
LOIR, LDDR, LPEIR e CFDR duas PEQUENAS rotinas E di 
Hs nao automaticas sao: codiam maquina que fazem O 
LOI. LOD. CPI e CPD tratia lhe de memorizar ua 
pintar o ecrano 
Facarmos agora a descricao A erimeira,. ECRAM-MEMÓEIA, 
teorica da inztrucao que vamos situa-se na PEM 1 CISSISO. 
utilizar. A segunda. MEMORIA-ECRAN, 
situa-se na FEM 2 C163402., 
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Edaptado a partir do disco emitide por 


ATODO e SYSITEMOS 


ed ia pu) do 65) ão Luh É dba 


Colaboração de Jorge Costa e Joncpuim Magalhães/Porte. 


INSTRUÇÕES : 
o dinheirc de 1 a 5 dalla 


TENÇÃO : 


5 (1, 2 


E al 
em PANCO, podendo fazer isso de uma vez 
logo que-consiga e primeiro dinheiro, aparecerá um grupo de assal= 


1, 485 


sé ou eu várias etapas. 


(Kaio 83) 


— uas mom ams camas comes memes 
us sues. unos use tema urum masi 


.— —uus somas cumes somas susto mem 
.— uu. uu emas as ulimma mato 


O jogo consiste em colocar mm saco representádo pelo sinboloif, 
) e ex seguida depositá-io 


pers aos quais deve escapar e que são representados pelo simbolo “ E 
"Yo caso de ser apanhado, o conteudo dc seco desapareccrã. 


COMANDOS : mudança de direcção 1 


7 - para cima , 6 para ba 
O objectivo do jeço, será 


mpepepe na quantidade de bancos. e no 
' 60 no segundo, Para poder jegar no nest labirinto terê de obter 
(CCTO 207) para o 1º jogo) 


de £ 
ou se não o conseguir 


ixo, 


õ nen Dars 
M - para parare 


2 


-” 


E esquerda N 


Se: depositar o méximo no BANCO. | 
C jogo apresenta dois tipos de Labirinto que diferem na velocidade, na estrutura doc 


” BRESEº -e GOTO IM .» 


- para e direita 


score máximo, sendo de O £ no naum cg e 


: 3 


Ut: CONSELHO : logo que o saco “contenha dinheiro, a prisão será aberta, aumentando 
a dificuldade do jogo, mas se fôr assaltado e o saço estiver vazio, o assaltante 


voltará de novo para a pr 
3 SAVE "BANCOS 
SLI 


PRINT AT a, Bj "bancos: 


PRINT AT 4, G;ºC0M O “saco ey " DEVE 
TRAÇA INTERIOR DE UM LABIRINTO. 
BANCO, “SEM SE DEIXAR APANHAR 


POSSIVEL, MOVEM 
COLOCA-LO NOS 






isão, 


CASO CONTRARIO D SEU DINHEIFO 


APRHHAR A 
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PELOS ARESALTANTES 


EM 
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MATOR GUAMNTIDADE DE DIMHEIR 
SEGITDA 


tm E) " s 
COPCBPF 2861 2FASCOCETFIBFR! 


LET Co="COBRES AP SECDESZOBO INT ODISAAI222CIPECET 

LET R=2A08A : 
GOSIIB TABB 

LET C&="CDSAFECETEZAGECEPE2BnS2FESZFONESHADlaCcErF 2ogezrRala” ' 
LET E=20B24 

GOUSUE Sage | 

LET C$="CDSAFPSCETEZARBECEPFEgaS2FBZ2FCSESABraCcerFocBezrtsa” 

LET F=2n06% 

BOSE Siatat 

pc C&="CESFaBGbcESa ERROR CNC as TESGlCCESSEpRASLERS SAS EG LAR dat 
eta SOCESSgaFaga cen SFPAGEDbSEBOUSABaÇENS AD 
Ro Pé = [1119 

SAIR Eat 

PETIT AT ISA; Nstiid CONTROLO DO SAIO LISE : * 

PRINT AT 16,8:"5 & ESCUEEDFA 

PRrIHT HT w: b 8 FSEAISO” 

PRETHT RAT lc mol; E Fo tTrin 

FRETHT HT la EE , DIFRETTAS 

PEIHT AT 2a: id & FrRHE 

PRINT AT Sl.s. "SPACE PARAR Cio SUMA! 

LET C$="2ERAS2IFEE" 

LET F=3240 

GOB SAMA 

LET Có="1chnZREceESFAZICELA CAMLEALZAZICEEDSIIICSIJCECAE ER SP SRS Cl Ao 
LECR4ZPBOEZAZICEEDASS22IGEZAS CE sena gde mid md AZLEECLZATSZAD 
pt cp a dq a GEECDECPSEPPSAZLCESSPnGESAZREEZETESEZHE 
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ClB;"1 SA &NGAT 9. 1;"AÃ SEGUNDA PARA BONS JOGADORES: “:AT 11,10;"2º EB mM 

ara PRINT AT 2H,A; “ATENÇCAN, ESPERE UM MOMENTO" 

Flá LET Mb="2327202029262AECREBeBearrescearrescareaceacnasrveeaga" 

FEM GOGSUE SAIA 

esa CLS 

ram FAST 

Sid LET M$="2ELLSOSBZF2c3ASAaIl Zi crelbeEZCceD2CoFPrEZCSMEleEsF" 

sem GOSUEB SAS 

q LET Mb="DISESEZRASaAECADAT Sr ISS ad ESSES! 

a GOSUB SAT 

lgiy LET C&="FRIFEECEIFLLSILTSSLSLZIFEECSESTEZEDOZCIFEESPEAHIESESFCEPFEs2eerFaiaao 
ARAZISASIPREYFERACASEFFEASOAS2ILFFFFILS2aAZAZedAsSPSEF7ERZARBEZLALGA E LZSEFF ERAS 1 DEF 
FILSASSEDFERZOBE2 ida" | 

1aZA GÓOSUE SABE 

jaz LET Có="4S7DCETVCAZOTVEEDIBICEELATVESFIEDREDSADIDEDES A STS EDoSJVPEGO  EZESESDESS 
GASZEAL LSZ23ESEEIZAASBEDZ LS 3R2EGFR92AB4HEMS LE 1 SERMBIcOndADE nd 41507 GERILEIZALSHEAS" E 
o GOSUE SORA 
1934 LET C&="GESD22ICSETVAS2LESEERSERAGEBAVAETPCAZOTVECIZALFEEETVSAL LSC321FSEBACAFE? 
S3EFFESCArTVErVSCSICTESAZISOIGF3EYVFES20A4S ABL GAGACIZEFFESCACAVSZEZLESCAFIVSREGLESCATVE? 
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2020 LET H$="430663229050729565835081 13552552 
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LET S=INT cRHDE&23+1 0 

LET Y=INT cRHDEH4+37 

GÓOSUE SSB 
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LET Lv=11 

LET CV=12 

LET LD=14 

LET CDb=14 

LET Daz2ãa 

GOSUB SSH0 

PRINT AT 13,15;" “emo ae, ZM PrIteo oa mr 

PRINT AT 1,3:"Sº;8RT LB) SAT 35: "4PENT 3,26; 
AT 7.22; "2% ;AT add LUA 28" L"sAT IA, 

PRINT AT 14. 4" MET 18,185” “o Lraid 

LET U=USF sas 

TF ll=A THEN 

IF 1I=& THEM 

IF 1d=7 THEH 

UHPLOT 24,6 

UHPLOT 24,5 

LET WAlL=vAL+L! 

LET Céei TO 2Z9)=5TREE CYAL O 

FOR I=P+3 TO vVAL+HS 

LET COCIj="8" 

HEXT TI 

PRINT AT 2L.A:0% 

LET F=vYAL 

LET ti=4+1 
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GOTO tia 
POKE celsg,y 
GOTO 2iBa 


PRINT AT 16,15; 
LET CEP=DEP+YAL. 
LET Cá="" 

LET Al =E 

LET F=t 

PRINT AT 17.17 
PLOT ap 

FLOT &&. 

IF DEP=25 THEH GOTO St 
IF v=1m THEH GOTO 2108 
GATO 2508 
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PLOT 24,5 
PLOT 24,6 


LET AsA+E 

IF A>2821A THEN LET A=2 
UHPLOT PEEK A, 42-PEEK 
LET X=INT <RENDEZS+ O 
LET Y=INT CRHDES+27 
GOSUB SEDA 

LET Cg="" 

LET VAL=O 

LET P=A 

PRINT AT 21,0;C8 
IF W=10 THEN GOTO 
GOTO 2508 
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PRIMT 
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GEP 925071 1S0EPSIARI IISdAZEESATAT | 1aS02O22S! 72AIIDESIABI LISAS ess sspriisgrasnagDA 
EISSAAPAZSEL TEIAS EIS SHEHSISSETASSAREASTA 22 ATI GE” SN) 
agr GOSUE ES 

“ár LET g=IHT cREHDES+gA 
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adgeo LET v=28m 
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Ep EE 


LET 
LET Cl= 
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GSE Ea 


32am PRINT AT S.2:"BANCO "LAT Empr PGAT O POBAT FS: “;AT 26, 20; "DER 
S";AT O,21:"D';AT LB.BL:MEMSAT LL SISCPMSAT LE. BL;PONIAT 13,310 

214 PRINT AT lá, 22. Mu AT 14,25:º"Sº AT 12,134"5";M7 EPA; "SAT P.16:"4"AT 45, 
18;"4":AT 16,25; "4 ;AT S,EEp"APAT 4.24: "SAT 18,30; CSCLAT Fido 2": AT 13.14; 8 
“at Doi des ui PI: “PAT 45, LO; sAT 18,25;"2º;NT 3 RT RUE HT 2 PRIMA 7, 
JB IS AT 15,6;PIGAT B,18;"R" 

280 LET =p Cn 

asia JF iz THEM GOTO Grata 

seia IF l=6 THEM GOTO SEE 

285364 IF ll=7 THEbHM GOTO Zona 

35SA PRINT AT 18,.19;º “AT 10,26;" ";AT 193,22; * 
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LET AL=AL+ 
LET C&iil TO Zo=ETEÊS CYALS 
IF vALSZA THEM GOTO SE 
FOR TI=P+Z to vAL+E 

LET C&clt="6" 

HMEXT I 

PRINT HT 21.8;C5 

LET P=vAL 

LET tt=t+] 

MOTO aii 
POKE 2E194,6 

CNT SALAS 

PRINT AT &.3:"DEFOSS" 

LET DEF=DEF+vVAL 

LET (oii * E) 

LET vAL=A 

LET P=hA 

PRINTS cassdePEe CIMA css rDAT Gu irssiad* 
PRINT AT 1IB,1L9; "AT IM,26;""EAT 13,22;"" 

IF LEP=7O THEH GOTO Zago 

IF v=20 THEN GOTO Siga 

GOTO 2380 

PRINT AT 4A,192:"". AT aa, 2EerPPAT 1Z,22;M" 

LET A=A+6 

IF A>28214 THEN LET BA=28192 

UNFPLOT PEEK A, S3-PEER CA+Zo 

LET X=INT cRNHD&aI+4A à 

LET Y=INT CRNDXS+1LS O 
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LET Cé="" 

LET v“AL=B 

LET P=h 

PRINT AT 21,0;C5 

IF v“=28 THEH GOTO Siga 

GOTO ZSBM 
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cuja inf luerlia recai 
sobre nos desde a 


arntiaunidade. 


Sr 


Este programa para 
ZPECTELIA Let explica a 
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) a? LET eg- & 
. 590 IF: z=ã THEN LET eg=" 
508 PAPER 7 E 
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:eg: NEXT > 
“gsô IF z=4 THEN GO TD z708"5— 
B3eR.LLEF: f=CODE agftfc;als. EF: 8- 
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soe. PRINT. AT v+2,h+2; Fa; AF VA? 
n+R: Fã 
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“HT 14, estro É “; be 


LET vEIESLET n=3 = 


: ET 
e PITA é 
A pm 27 


4 


rt 





VAL at cad ars 





1288. IF uAL agte,3-T(  2)J=11 THEN 
E LEFáda=d ati se Ran Sa ds 
DI SOME. 3322 THEN 4 EF d=12: LET. 
3=1 MRE 2 Fe 
1310 LET c=cé3 caos pia 
1320 LET v=I5 E AR 
13302 GO -SusB. AM Fes ata 
1340 LET p=P n astecas. 70 E Ss 
ABS IF-UabCa sic; 1 “TO 221=11º THEN 


a Pogó sado « aa Té 
Sm 
É Tora f. 
* 


e E Sae: se 
AT 


E 


A a 


- a - 
LN = o 


LET dé-dc+i 

SO TO 1698 

IF d>21 THEN LET d=e 

PAPER -?7: INK O 

LET h=dts2 

PRINT AT S,20;"SPEC 

PRINT BT-S. h+ina-td=0)); Eis 

IF d=9 THEN PRINTO ci 
FLASH 2; “REBENTEIN O a 

“IF d>05 THEN PRINT SFERSEE: e 


gor arndes 
Scarhê ca: 





» 


o 


HSEXEXKETE 
GEMTM 


CERPEEEEA ir. PERSONAL COMPUTER, 


MH.?, Julho/19483 
Trad. = adapt. por 


[ISABEL CRISTIHA- Parto 


emas COS CUSCO SOTO GUIS SOU GONE CONTO NUMIS CUUSS GUTO GUNS NECUS CURAS Gác0U GUUUS CONUS SUNS SONS GUMOS GUINS AUUNO CENTO NOUUS SUUNS CUSTO CUTDO SORIS AUTUO COD SUNS CSN) GUNS ADUNS UNIS UNNE GUUNS GUNS GUNUS SUÚDO SUDOU GUUIO UNS SUN seniS SUNS qundo GUIDO SUCO AUINO cUGIS UNO amNNO ANDOU UntOS GUOUP SOS niito cad smnO «HAS anNMO custa autos quaso numa 


“US Soo CUGNS FOGOS CONES UNS GNNMD CUGUS CDSUO GSCUS AULUS COSOS AUNTS GUUUS MENUS COUTO SUSUS LOUIS ANSND SUUTU AGUUE meMGs CSCUS SUNS DOURO “OMDS UNOS SUSTO CnEUS GOD GUUUS GUNS GUNS UOTUS UUIS MOTHS MUDUS SOMOS CONES GUS SOS UU SUNUS SUNIS cutui GUNS GUNSS GUNS ANIS AUUMo sois entes copas cncts seria memo vosso «sudo selos musas asus múmia anna cstil anmns antas 


SUBROTIHA PARA ENTERRADA E VALIDAÇÃO DE DADOS 


REFERIA EE 


PARA Co MICROCOMPUTADOR HENERATH 
EO O RE DO MEO O O SE SD E SAS DD 


HOTA: DM mimero de caracteres aceite er cada THEIUT exta definida 


na 


da H 
— 4 


Linha 2H2ZA, a war jane] 


caracteres esta definida na variavel "IME. 


GENTIH — = uma abreviatura para a rotina “GENERAL INPUT” 
destina-se a ser usado como subrotina em programas onde 
sao necessarias grandes quantidades de INPITO, 

A rotina foi projectada para ser completamente a prova de 
erro, rejeitando INPUTS: nao validos,. enquanto admite o usa 
de "INSERT", "DELETE" e movimentos com ao cursor para a 


esquerda e para a direita. AR rotina verifica seo 
comprimento da =ztrinaermemocouy iaual aa valor de L «e se 
cada caracter na strina esta dentra da serie HR&cIt, 
definida por JTli&. Estes valores sao para ser definidos 


previarnente pelo proaramador, Exemplo: 
Para aceitar palavras com 4 caracteres L deve ser iqual a 
4 = I1ã a faz”, 


He=ta liztager, nas linhas BH e ZAZA, encontra-se uma 
amostra para chamar aratina. Àeresenca de “"FETUEN" faz 
regressar a ztrima sem ezpacoas ie CONTROL" lewa a 


strina com espacos para a strina de comprimento Le OQ INPUT 
valta a IHS, 

se usar um TIHPLUT numerico, entao dunte a linha S2s 
TH="AL. ING. 

Esperamos que esta zubrotina venha a zer util na execiicaão 
dos seus programas - aproveitamos para por a questao 


ONDE E QUE ESTRO OS PROGRAMADORES LO MENERATHO 


Mm 


SPEPrIAMOS DS vos programas! 


e a vwalidacçao do tipo 


de 


aa qm 


Ade ide 


pda ' 


se be 


...— uu sum ones 
— us us um cum 
.— us us tu. ums creu cumes cummm emma 


| REM PROGRAMA soccer. "HEL BRAIH" 
Lá GOTO 2ZHH6 


SA 
Sa 
S20 
39 
532 
Sd 
SEA 


*or -— 


Std 
a LH 
Dot 
SA 
St 
ed 
Sra 
FE 
ah 
dA 
3h) 


c0na PUTSL: PRINT "nome E 


REM EF GENIN 4% 
IP LEME Il&o 22 THEM PRINT'no [18 RETURN 
APEM$S.S: PUT 21:GETulo4l:Fl=dofo=m: gere 
Li=:PUTE:LO=ASCLLEFT$C 11%,123:HI=ASCCRIGHTE 115,15) 
IF LO>HI THEM RETURH 


GETHS. 26: IF ag=""THEH Saga 
asHASCeo ag 

IF a=13 THEH ama 

IF 3=3 THEM F2=L:GOTO aa 

IF a=3 THEM Fi=A:GOTO Ea 

IF a=2E THEM fiz=B:GOTO Gra 

IF a=17 THEM Fi=i:GOTO san 

IF a=24 THEM som 

IF q<22 THEN sam 

IF a<LO OR a>HI THEM S4g 

IF fl=1 THEM GOSUB 738:GOTA AE 
PRINT 9&;:Li=Li+1: IFLI=L THEN Li=Li-1:PUT E 
GOTO S4g 


REM £E cursor direito EE 
IF Li=l-1 THEN 540 

GOTO 648 

REM £k cursor esquerdo Ef 
IF Li=ã THEM s4g 
Li=L1i-1:PUT 2:GOTO s4a 
REM EX insert EE 

PUT Z:FOR s=xi+L -2 TH x1I+LISTEP-i:PUT22,S, 
PUT 22,5+L:41,ch:HEXT s:PUT2Z,s+l,s1,3:PUTS 
RE TURH 

PUT FP:IF Liz THEH asa 
Fi=xi+L-1:FOR s==1+L1 TO fi: PUT 22, 


41,28:GET ch 
É 


2.41. 26:GET ch 


PUT 22,8-L,;ul,ch: HEXT s:Li=Li-l 
PUT cosflouls SE: PUT2Z, xi+L los GOTO SSH 


POR s=x1 Tóxi+L-2:PUT22,5+1,941,28:GET ch 
PUTEZs,4l, ch: HEKT =s'PUT22,x1+L-1,91,32 
PUT22Z. Z1.31,6: GOTO IS 

PUTZ: FOR ==A TO L-1:PUT2Z, xl+s,9l, 
IF f2=1 THEM a3g 

IF EIGHT IH. 1 1=CHR$ 
LLUSERS : FETURH 


SA: GET ch: IMG=IME+CHEGE cho: MET = 
ed THEHL=L-1: ING=LEFTE IMG Lo: GOTO agã 
e 


COZ) L=B:11g=" z":PUT22, 7. A: GOSUB 00: PRINT: PRINT IME: EHD 


23 


EECcorMruUTADOR + e Lt 
ESCOMPUTADOR HEMERA LH datação = Isabel Criativa 


EESRELÓGIOSA 


ce introduzir este Programa , téri o seu Heubrain a funcionar como um Pre lágicoe 


Depois de introduzir a hora os minutos e os sesdundostcadiantar 2 Fara cooprde- 


nar com o compasso de ecesPera) faça EH w Fara acatar STOP-HEULIHE . 


e e er pe e e e mm 


PUT 24 
PTez, 3.3: INPUTC "QUE HORAS SAO 7 "9E 
F= INTC EA 10): E=E-CFAIB) 
PUTEZ, 3,7: INPUTO "QUANTOS MINUTOS o tal 
Db=IMTE Co18):C=C-CDAIBS 
PUTEZ, 3.9: INPUTE "QUANTOS SEGUNDOS o "OA 
E=IHTo Roo: AsA-BHIE OS 
FOR H=1 TO 308:MEAT H 
A=A+1 
IF R>4 GOTO 118 
GOTO 388 
Há 
Ei=Ei+ 1 
IF E>z5 GUTO 12H 
GOTO St 
E= (A 


ES GD SS IG Si 


L=0+1 
IF La ST 196 
o GUTO 
Ú à 4 =f4 


DepoIMmNeapeGAGSSSSD ES IS 


[1=[1+ 1 

IF D>5ã GOTO 2a 
GATO AE 
[= td 

E=E+1 

IF Era Guto dom 
GOT SA 


paáfára fora tas qua iça gaga raça cap COPIAR dr cn 


Eta 
E TU SO QT 1 


= 4, 


pa o 


NRO 
ra 


+ [rs 


o INI 
nm 
E oa 
nã 
+ 
prod 


A JF A=H THEH Sgt 
2“ JE E=tH THEM af 
4 TF C=A THEH JM 
E IF b=y THEM Soy 
r IF E=1i THEM SH 
Ei EE 


IF F=i THEN 


DA 
a as 
Ea 
1 

! 
Pomdo 


PUTZ22. 18, 1Z:PRINT PoE etapa "es BsA 
PUTEZ a ETs RELOGIO MEM ERAIH 44 
GOTO FA 


E 
lho 


E 


Lad Cu Ta 


vi forarara ro fora 
Pad tes q E LD LD LD LD LÃ DO =] ML 


1” 
ad 


"2 = = 


tm Ea 








o ue us quam us une sum ess euros camas ums comuns apmma 


"STRUCTURED COBOL". 


esmero uma 

arande abstraindo-nas UE 
detalhes de cada modulo, o mm 
Seu objectivo. & funçoes , 
debrucando-nos “apenas nas 
relacoes entre os modulos. Na 
pratica, desenvolvemos uma 
estrutura modular, procedendo 
do aeral para o especifico, ou 
usando o que e largamente 
conhecido como "top-dormn 
approach” 
Hote-se que 
dezena Lv imento 
do programa 
linauagerm de programaca 
computadores. Escrevemos 
NOSSOS pensamentos TULHIA, 
linauaaem o Cormum, 
afic auciliares, 
quadrados , 


erit. Errar a 


. sas 


Podemos 


o 


nao 1, 


Ji a) (j 11 


= epi 


tais 


a figo 


parentesis, 


termo laraamente 
pseudocodificaçcao, 
para e = 


Vimaa qem 


usado e a 
que  wjaora 
programas e 


rever rr 


- 


nao prosramat.ica. 


Bglaums praticantes da 
paeudoçodificatao 

adiantaram-se ay mencionar 
rearas de escrita da 


p=esdocodificaçao. C quina 
SEÇUEC) Ca TT quta- 00 o cutira 
WET, diZendo-rmas Tomo o UZar 
qualquer linguagem o COmumo oque 
achemos util Para 
exemplificar, numa. arande 
instalacao podem cer benrefiicas 
formas etandard de 


p=eudocodificaçao, 


PHILIFPREIS Pndreas 


Pepreszentamos 


TURADA 


CContiniacao? 
e EKAZMIEE Leonard 


ERAS TC 
SPINTOS 


poe 


pode Ss 
araus de 
er aeral 
aconselhamos a descricao 
alobal de todo o trabalho numa 
pagina, e entao a descricao de 
cada modulo que deve ser feita 
em paninas separadas. Esta 
descrição pode servir como 
documentacao parcial, ou mesmo 
completa, de um programa. 


É niiida 


eseudocodificaçao 
var Nos 


Ha 
escrita 
absztraccao; 


pri 


no hos 


aqui as 
caracteristicas principios 
aqerais da, EerCaraAmação 
estruturada. Sintetizando: 


ate 
uu 


ss rm eroGrama desse ser 
concreensivel 

ai RR Err ama Tee ep 
Correcto 

- um proarama deve incorporar 
uma <imples e direita linha de 


fluzo loaico 


“um programa deve compor-se 
de modulos interligados, sendo 


S 
= 


cada modulo zimeles clara. 
epa deve zer concebido para a 


tratialho. 


HPENDICE FR 


Em relacan an que fai descrito 
Tui caps tulio ESTEUTUEM Drs 
PROGRAMA. POSSO ainda 
acrescentar que eztas ideias 
amo mito usadas TOS meus 
Programas, relativamente as 
quais me tentei aperfeicoar, 
Nao digo isto para que deem 
credibilidade ad meu trabalha, 


Ê 
! 
l 
Hi 
Ú 
H 
Nf 
H 
ii 
il 
' 
il 
it 
Ú 
H 
H 
if 
H 
H 
ú 
H 
H 
H 
H 
H 
u 
t 
H 
H 
4 
H 
H 
il 
t 
' 
H 
ú 
4 
H 
H 
H] 
H 
H 
-M 
H 
il 
H 


er 


pia apena para prritarr 


a wontade Que em 


ecplicar., 


nara + 


amil 
+ 
ada 0 


Her 
pelo 
1: Lira, 


PESA PROG ama Sm empre 
dois tiros de rotinas: 
rotina o perinciçal, Quis 


pe mi e 1 Taz E a tod, dO mea ii 1 A, fem, 


NE tus 


chama as 


4 
+ 


.— 
a 


FEM "EXPERIENCIA 

CO SUE jagã: KEM ECRAH 

ce zag: FEM Mv, PETHOTEAL 

Co SUE saga: REM FTHAL 

rotina pode cer por é 

-ada a um 24 SFECTEUIM. 
QUE fumcicmna 

"multiztatemento"”, 

ser dezdotradas 

linhas: 

ty FEM "EXPERTENCTIAS 

1% FEM ECRAH 

2 GOSUE tam 

2 PErM MO, PRINCIPAL. 

Ja GOSUB ZHBA 

2º REM FINAL | 

SA GOSUE SAam 


to DM MD 
“e 
to 


a 


ba. sã! 


rep | 
Mas tim 


a) 


Sum E tw tom 


a 
E) 


nao 


EE 


para outras] 


«inda 


= 
& 
3 e, 
+ + 


O 
E E 


tt 


D 
ki 
E 
Tt 
TR 
+ = 
mM 
mn bu 
Ei 
“u 
d 
m 
ES 


Ê 
4) 


REI ECELFECRRANEEXS 
GO SUB Sa 
RETIRE 

aseim fariamos 
eup-potinas at. 


- 
+ 
ce 
a 


ES O E RR RS Eh 


E 
A ERA 


para as qutras 


ootmTrs caco Maid 


ctre-qar Ee FALA LAD 


CE eme E mst Ta e da aro queira bo 
mais Pequena, 
1 vistena e dividir um 
em =ubrotinas pequenas, de 
que cada uma tenha uma funcao 
definida e clara, 
Depois de escre 
cada 
Sina lmente 
GOZUB=. tal coma ezta 
primeiro ponto deste apendice. 
"EXPERTENCTAO E 
CONS tItuoa 
perto or! prTTucIRa] qe mada fem & 
MON TMENTO PRTHNCTPAL. E 
esta o ECRAM pade esta ar 
mone ta TIHICITO. 


Prq apa 
radio a 
[resp 


tie=tat-mee 
Dm E epi 


Eq E 
uma das <a! oia mtnas 


interlijga-tas 


fr: 
testo mm 
Fê ERA CER ane T(3 “o. 
mumifi E Crime apo e 
Mad me po E Th Ff , E ' 
curutes 


ma tre amp 


as FEld podem 
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FORMAS [e] 
PROGRAMA 


ESTRUTURA 


ectraturado o pode 
dese id DRM Rm [2 
basicas da 


QI, 


Ur Prop apa 
eo completamente 
usam o formas 
stretturado prooprama 
- CietesyuT 1a 
-Tft-then—r | =eE 

- Dim-sarya le 

A estrutura GSECUMEHCTA 
ur fluxo de prooradça 
Cada bloco pode istir 
cetatemento; 
poeta Lim 
uma colec 


o 
mn 


em ao 


au 


indica 
logica. 
Auta 
procho 
prcero 


cam 


SA sad 
TATTEES 


tr 
Reno 


+ 
3 
e. 
if 
a 
Ri 
+ 
qual 
q 


o , ua, 
de modulos. gs 
Em BRAS TC. 
iluztramos 
Duel] (7 Fr 
cetatern 
fr =, 
Ne APPA 
LET 
TOTAL=SIJETOTAL. 
+TOTAL. 
PRINT TOTAL. 
A estrutura 
IF-THEN-ELGSE 
indica Le 
lu 
condicional 
de EPrOQQr ama, 
Heim, a 
prcarama  foma 
RR Cu matam 
ca paes 
dependendo = 
condicao 
almente 
referida En 
Lero radicado 
=... tataeo ou 
seta tr 
Hr ERG TO 
Pu tr 


e Td e 


3 pen S 





Pee E a 
emtrttura 
= mumte: 

Tr FREACILHAT 1 tdtt 
PRETUCE=PFRTICEEA, St 
ELSE LET PRICE=PRICEXA., 14 
Podemos fer cazos tais 
a conrdicao e fomada, 


q 1 Ao, vem qe quad Tv mt 1 rprragçams Tm 


E emule tua do Proorama. Eq 


ERG TE perua — e Executar 


THEH O LE 


[ut 





ES O CE E SS E Sa a aa asa ss EESO  ct EE 


e se LPP e 


os fiada 4 al 


WWW NM 
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estrutura Cor a 
omissão do ELSE 
como ZE Segue: 

IE AMCLINT tam 
ET 


PERICE=PRICEXA, 2h 
H estrutura 
DO-LHILE da-nos 
a possibilidade 

de uma Qperamam ET 
IGOR A, que e 
repetitiva de um 
um Prograna dm ciclo mao e 

correcto. O 


Tea, 


Ee TT 


.- 


enero de 


infinito, se for 

predicado e testado por uma 
condicao. e a condicaa for 
tomada Dina valida, entam 
saimos do et Rad Ts se Tam, 
continiamos a, executar 3.5 
instrucoes contidas no ciclo. 


Era sp 


Posteriormente, nos queremos 
salientar que GO TO e menos 
programave ll, E não e quita 
“compativel com a programacao 
“estruturada, uma estrutura 





clara e que pode ser cumprida 


com o usado GOTO. For outra 
lado, o uso indiscriminado co 
CG TO pode-nos levar a um 
programa labirinto, e por esta 


razai & preferivel restrinair 


o uso deste verbo sempre que 
possivel, 
Hz tres estruturas atras 
rereridas era suficientes 
para, representar mitos 
Programas. E ainda conveniente 
apresentar mais duas 
estruturas: DO UNTIL e CASE 
(EN MA DO TO 4, BD, Ed) 
o Cl UNTIL assemelha-se ao Ef 
NHILE., exTCepto que o tElaco 
precede qo teste. Aszim ao tlaca 
sera executado pelo menos uma 
UEZ a 

NOTA: 
Corno no prefacio referi, 
orialnalmente este artigo foi 
escrito para 3 linauagerm 
COBOL. Ha adaptação nao quis 


retirar as instrucoes DO WHILE 


e DO UNTIL, visto Oo BASIC de 
alauns computadores ctal como 
o LrN£o ter estaz instrucoss, 


Manda es .r au ce Di da A q 
ni gd e [a . «Mao ud E td nd - 
a Fi nã 


ciclo 


UM 4 GO TOA, 


B. Ç da 
seguinte E 
maneira 

OM * GO TO* 


SINGLES, 
MARRIEL, 
DIVORCED. MIDO 


| 


WARS 


MARETECL, 


admitar Que 
DIvVORCEDL - MIDOL eram 
variaveis que anteriormente ja 
estavam iniciadas, Qnde est 
(e LR E 1 TO c(cvariavelo, ' 
tida em BASIC na seqguint 
forma: 

LET Cwvariaveld=Cuariavel)+1 
que as inmnstrucoes 
InEcritas em COBOL. 


ser 


ue 


Ho estrutura CASE CcONESOTO 
H. E. Co e convenlente quando 
temos UM rumero arande de 
alternativas a serem testadas, 
Supondo que o estado material 
de cada empregado e codificado 
em A, E. Ne Scorrezpondendo 
respectivamente a solteiro, 
casada. divorciado E viuva 
(deve sem pre-verificada a 
correctidao dos codigos >, 
Lesejamos contar o rumero de 
empregados pertencentes a cada 
classe, Fssim temos: 

Assumindo que 
KODE contem q 
estado de cada. 


empregado, os se ja - que 7 gsisiao ame = ss > — e 
podermos ugar q 










WIDONW. 


ADO 1 TO SINGLES-COUMT 
GO TO NEXT-P, 
ADD 1 TO MARRTED-COUNT 
GO TO NEXT-E. 
LIVORCED. ROD 1 


SINGLES. 


MARRIEL, 


GO TO HEXT-P. 
IDEC. ADO 1 TO LUICONED=-CO NT 
GO TO HEXT-P. 
Hezte ecemplo, a estrutura 
Aparece qrnsseira. H razao E 
Qu cada Lro dos quatmm 


paragrafos fazem 
simples, Se imaginassemos um 
trabalho mais lonao a 
Evitar, para cada 

comvtudo poderiamos ter 
Uma estrutuma mid tem 
atractiva. 


Tolsas 


CASO, 
entao 


mais 





e 


CLontinia no proximo TULE à 


a 





TO DIVORCED=COUHT 


SINGLES, 







PA de e do de desista dio e dao de dia a dai iodo to Ha So Ha ato oia o oo o o Ro o aa ad 


ss se SOF TWARE 4634 + 


Ei 


OS SÉCIOS DC CLUBE Z-80 BENCTICIARÁ 
DE Ui; DESCONTO DE 20% 


NA CCMPPE DE SOFTWARE DISPONÍVELe 


Contas Correntes (46H. ROO as uno nse Eae a aquadão dn nd DS DD 
Analise Investimentos (48Bk RAM Ss csarssnmcnnea has emn os É HO DO 
Stocks (4Bk RAM) (500 raias «roonbricssana ns nsiss nad 200, 00 
VU-CALC (iék ou 48K RAM) Folha de calculO. .ccorvosccorccl 000.00 
VLU-FILE (16k ou 48k RAM) Ficheiros. .sscascosconáda cosas as d 060. OP 


VU-SD (48kK RAM) Desenho a tres dimensDOES. . «.ccccccccesesol OO. LA 


FERT/CPM (40K RAM)... .cacenencrecano egos qse pç ED 
Matematica (48kK RAM)... unem oiee EM ES RSS cómicas DDD 
Estatistica (48BkK RAM)... «<a. nos as va po a E O cauearsa tas BBC DO 
Eiblioteca (48H RAM). ..ccecocncnnene nes soe ss socissuas esa PBL DO 
ingice Bibliografico (48h. RAM). ..ccccruncrnceuca co. nah qo 6, OE 
22Ec-B (Inventaerio Fermanente-lov itens (SB RAM) once cs- OS. OG 
"omnslor (48H RAM). muscnddocsvesnesasainodosamena n a smass i 400, 04 
ussembier /Disassembler (tlót. ou 48t. RAM). .cucccnncecanccsso 200, 0% 


calculo de Forticos (4Br RAM)..... irrnaçs nda SRA Rd Sad > 000, OO 


man e e 1 rep con O ti 


e egdo emo e a carta e e 


J0G0OS-I (Invaders, Laser,Lunar Lander, Alien.Mastermind.Maze) 
cid RAM) nata dranss sec ennosiitod DOM, OM 

J0605-1I1I (HKatalha Naval.Space Roller,Ski, Comando, Holocausto, 
Damas) ido De tt ml de Nâo cedidas sr emd AS, OO 
Sun-Puzzle (l6K RAM)..cococencrcerconcnccocncnauassancacass 600, 00 
Travessia (tó RAM)..rcccccornnconescccsansocococanuanacceeo 690, 40 
Blind Alley CIR RAM) ..cscorcccescenacscantisastnaices ao e os. 6%. CS 
Intruders (l6k RAM)..ecccrcnsscorcossoncnnecu cascas nunc o se 600. OU 
Cvber Rates (l6k RAM)...ccconconccncooncononnancnnccecc eo 690. 04 
SPEc-1 (Cercado.Flaneta Grool) (ló. RAM)... 00. OO 
GPEcC-? (Campo de Minas. Áterragem) 16 RAM jassncsccesrsccsãs 600,00 
GSPEc-X (kKingkong.Sal vamento) (iék. PAM srs sa cressro cs 680,00 
SPECc-S (Vingador) (il6k RAM)..cccecssccoccocancno cora nancacos EGO. OO 
SPEc-6 (Fuga) (l6k RAM)...ssecocucecnconcsoncacana cc unoos 600. SO 
Morace (16k RAM)..concceccococoscoccnccossccecnovancnnasceeca.. 600. 00 
Sim.Voo Nocturno (léók RAM). ..ccancnancavanannncnnanauas cus 600. 00 
Elanetoids tit6k ou 4BK RAM)... ..cconcronunnnanconaconavaoo 600, 049 
Ground Attack (1lók ou 48K RAM). ..ccercnancnunonnnoonucocos 600. CO 
êrcadia (l16k RAM)...c.csnconconero caácuonhe. nbr Faro esrco MD 
Slippery Sid (l16kK RAM)....ecuccconoccnnnnnconnannacacnnacas CO. 00 
The Hobbit-Jogo de Aventuras (46B+. RAP à cessa raso o ntisha cs 100000 
Simulador de Voo (48kK RAM). .acnenccencncnenenecanca nana nas 600. 04 
Xadrez (460K RAM).cuccocorconscccerocucorcncocosencoconsosas 600. 00 
OS Xadrez (4BK RAM)... ..cccncencecconcanoncnnnonencnc one es 6006. 00 
Time Gate (4BK RAM). .esceccoconancncnccnccrasccnuaccccncsas 690, OA 
Orbiter (40K RAM). ...ccccococacaccocrunncccnccanecanocancos 606. 00 
Meteor Storm (48K RAM). .z..cazcrucunasonzcccuunonoccnananas b0A. OA 
Horizons (48K RAM). ..cecaccrucarconorvarercnconucaveroccso 606. 04 
Tunel (40kK RAM)..esccscscecenconsccncoconcsscancnvecosveso b0B. OA 
SPEc-4 (E.T.) (48kK RAM). .cccencccccarncoocconnonanu nona naso 600. 04 
Fenetrator (4Bk RAM)....eccscccroncconancnoncrocncanu nuno. bDO . GO 
Mimed Out (4Bk RAM)...cucucnaracaconunnnncne=. assina G0PrDo 
Tracer (4Bk RAM). .ccuauconcuncnerca. EL td a a a cd Ta 
vYatalha (48H RAM). ..cencncocucnuuuano nua cê ca es a 6 CA SO OB. DO 
monopoly (48H RAM). ..ccucncncaa nus es E DR EA 0. 600. VA 
Castelo (48Bk RAM)... .cuccrcruuunaccncanauner nes icniutivuie riso 600 PD 
Futebol (48 RAM). .cacarsueoe nossa a a é mas. cnqaascriavi ao MB) 
Lerbi Davy (48k RAM). «cc... a SO DR E e PE E TT sore nsnsass 000.00 
The Orb (48Bk RAM). cc... ua aa cenas as nenadd Tede ra Sa Ed to LD PO 
Crusing (48K RAM). ..cesecerconocsnconcnonncnnoncncone secas OM. DO 





a lista de livros existentes no CLUBE Z=8Ç 
está publicada nos boletúns nºs. 6 (páge 4), 
7 (páges) é 8 (págeB). 
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